对注册表进行操作

【相关图片】

【源码结构】

var

Registry: TRegistry;
begin
Registry:= TRegistry.Create;
try 
begin 
Registry.RootKey :=HKEY_CURRENT_USER; 
Registry.OpenKey('\Software\Microsoft\Internet Explorer\Main',true);
Registry.WriteString('Start Page',pchar(edit1.text));
end
finally
begin 
Registry.CloseKey; 
Registry.Free; 
end; 
end;
end;